home *** CD-ROM | disk | FTP | other *** search
/ PC Media 2 / PC MEDIA CD02.iso / share / udos / masdir54 / menu.bat < prev    next >
Encoding:
DOS Batch File  |  1991-02-15  |  1.7 KB  |  69 lines
  1. ECHO off
  2. IF (%SDL%) == () SET SDL=S
  3. IF NOT (%SDL%) == () IF NOT (%1) == ENVIRON GOTO ENVOK
  4. Echo There is insufficient DOS environment free space.
  5. Echo This means that some of the menu features will not work.
  6. Echo Please see the information about the DOS Environment space in
  7. Echo MASDIR54.NEW.  After you have increased the environment space,
  8. Echo or freed up some of the existing space, please run %0 again.
  9. goto end
  10. :ENVOK
  11. sdl_get be %A%
  12. set A=%GET%
  13. if (%SDL%)==(Y) goto again
  14. IF EXIST LICENSE.COM LICENSE
  15. IF EXIST REGISTER.COM REGISTER
  16. sdl_get C "Please read carefully, then press Y to indicate acceptance..." Y
  17. set SDL=Y
  18. :again
  19. MENUSCRN
  20. sdl_get C "Select by number, press Esc to exit . . ." 1234567~
  21. if errorlevel 126 goto end
  22. if errorlevel 55 INSTALL
  23. if errorlevel 54 goto PRINT
  24. if errorlevel 53 goto ISFRM
  25. if errorlevel 52 goto ISNEW
  26. if errorlevel 51 SETUP
  27. if errorlevel 50 goto ISDEMO
  28. Sdl_get BE %A%
  29. TUTOR
  30. goto again
  31. :ISDEMO
  32. Sdl_get BE %A%
  33. DEMO
  34. goto again
  35. :ISNEW
  36. SDL_SHOW MASDIR54.NEW
  37. GOTO again
  38. :PRINT
  39. sdl_get p
  40. if errorlevel 1 goto OK
  41. sdl_get B
  42. Echo There does not seem to be a printer attached and ready.
  43. pause
  44. goto AGAIN
  45. :OK
  46. Echo Ready to print - align paper in printer.
  47. sdl_get C "Press Enter to continue, Esc to cancel "  }~
  48. if errorlevel 126 goto again
  49. IF EXIST MASDIR.DOC COPY MASDIR.DOC PRN
  50. IF EXIST MASDIR.DOC goto AGAIN
  51. Echo The documentation file MASDIR.DOC is not available.
  52. Pause
  53. GOTO again
  54. :ISFRM
  55. sdl_get p
  56. if errorlevel 1 goto COPY
  57. sdl_get B
  58. Echo There does not seem to be a printer attached and ready.
  59. pause
  60. goto AGAIN
  61. :COPY
  62. COPY ORDER.FRM PRN
  63. GOTO again
  64. :end
  65. sdl_get be %A%
  66. set A=
  67. Set GET=
  68. if exist utility.bat utility
  69.